home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S12.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-11-14  |  512 b   |  25 lines
  1. 10  CLS:PRINT "LINEAR CORRELATION COEFFICIENT"
  2. 20  PRINT
  3. 30  PRINT "NUMBER OF POINTS";
  4. 40  INPUT N
  5. 50  J = 0
  6. 60  K = 0
  7. 70  L = 0
  8. 80  M = 0
  9. 90  R = 0
  10. 100  FOR I = 1 TO N
  11. 110  PRINT "X,Y OF POINT " ;I;
  12. 120  INPUT X,Y
  13. 130  J = J + X
  14. 140  K = K + Y
  15. 150  L = L + X ^ 2
  16. 160  M = M + Y ^ 2
  17. 170  R = R + X * Y
  18. 180  NEXT I
  19. 190  R2 = (N * R - J * K) / SQR ((N * L - J ^ 2) * (N * M - K ^ 2))
  20. 200  PRINT
  21. 210  PRINT "COEFFICIENT OF CORRELATION = "; R2
  22. 215  INPUT "Run again ";A$
  23. 217  IF A$="Y" OR A$="y" THEN 10
  24. 220  RUN "STAT"
  25.